home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / Documents / Diagram / UW_Palettes / Backgrounds.dpalette2 / Image15 (.txt) < prev    next >
NeXT TypedStream Data  |  1995-06-12  |  1KB  |  43 lines
  1. typedstream
  2. NXImage
  3. Object
  4. NXEPSImageRep
  5. NXImageRep
  6. iisssss
  7. [1072c]%!PS-Adobe-2.0 EPSF-2.0
  8. %%Title: Rectangle.eps
  9. %%Creator: Ali Ozer
  10. %%CreationDate: Tue Aug 14 10:38:47 1990
  11. %%Pages: 0 1
  12. %%BoundingBox: 0 0 570 750
  13. %%EndComments
  14. % This program draws a particular symmetric pattern.  Plug in 
  15. %  xscaleAmount, yscaleAmount and rotateAmount with a 
  16. % pleasing value given by RectSpinShow 
  17. % adapted from Rectangles.eps from the demos directory
  18. % by Kevin Brain.  May 1/1991
  19. /numSteps 400 def   
  20. /boxsize 100 def        % original size was 200
  21. % The drawing routine.        % modified to use boxsize variable
  22. /drawbox {
  23. boxsize -.5 mul boxsize -.5 mul 
  24. boxsize boxsize rectstroke
  25. } bind def
  26. % Come up towards the middle of a 8.5x11 (default) page
  27. 306 367 translate
  28. % Have thin lines (even when scaled; 0 linewidth
  29. % means "use the smallest line you can")
  30. 0 setlinewidth 
  31. % Take numSteps steps from 1 to 0, drawing a
  32. % rectangle and altering the coordinate system
  33. % by the above values at every step...
  34. .4 1 numSteps div neg 0 {
  35. .5 add  setgray
  36.  % xscaleAmount yscaleAmount 
  37. 1.00272 1.01168 scale
  38.  % rotateAmount
  39. 2.97 rotate
  40. drawbox
  41. } for
  42. %%EndFile
  43.